   5 .AMAZED IN SPACE
  10 J=0
  20 NT=0;clear ;BC=0;FC=126
 100 input "DEGREE OF DIFFICULTY?     0-EASY  1-MEDIUM  2-HARD "R;clear 
 110 print "PATH SIZE CAN BE FROM    ",#3,5+R," TO 20"
 120 input "PATH SIZE?"L;clear 
 130 print "HEIGHT CAN BE FROM 2 TO ",36div L
 140 input "HEIGHT?"H;@(2)=Lmul H;clear 
 150 if @(2)>36goto 130
 160 print "WIDTH CAN BE FROM 2 TO ",74div L
 170 input "WIDTH?"W;@(1)=Lmul W;clear 
 180 if @(2)>74goto 160
 200 clear ;for A=1to 100
 210 X=0;Y=0
 220 box rnd (160)-80,rnd (88)-44,1,1,1;next A
 300 box 0,0,2mul @(1)+8,2mul @(2)+8,2
 310 line -@(1),@(2),4
 320 line @(1),@(2),1
 330 line @(1),-@(2)+L,1
 340 line @(1),-@(2),4
 350 line -@(1),-@(2),1
 360 line -@(1),@(2)-L,1
 370 line -@(1),@(2),4
 380 line X,Y,4
 400 P=(Wmul Hmul (100div L))
 410 for Q=1to P
 420 A=(rnd (3)-2)mul L
 430 B=(rnd (3)-2)mul L;X=X+A
 440 if X<-@(1)X=@(1)
 450 if X>@(1)X=-@(1)
 460 if PX(X,Y)=1line X,Y,4
 470 line X,Y,1;Y=Y+B
 480 if Y<-@(2)Y=@(2)
 490 if Y>@(2)Y=-@(2)
 510 if PX(X,Y)=1line X,Y,4
 520 line X,Y,4;P=P-1
 530 CY=40;print "COUNTDOWN=",#2,P
 540 next Q
 550 CY=40;print "             "
 700 C=0;T=0
 710 X=-@(1)-2
 720 Y=@(2)-(Ldiv 2);M=0;N=0
 740 &(23)=255;BC=0
 750 D=JX(1);E=JY(1)
 760 M=M+D;N=N+E
 770 G=3
 780 if M>GM=G
 790 if M<-GM=-G
 800 if N>GN=G
 810 if N<-GN=-G
 820 X=X+M;Y=Y+N
 830 if D#0&(21)=255
 840 if E#0&(21)=255
 850 if D=0if E=0&(21)=0
 860 T=T+1;CY=44;print #4,T
 870 box X,Y,3,3,3
 880 box X-D,Y-E,1,1,3
 890 box X-D,Y-E,1,1,3
 910 box X,Y,3,3,3
 920 if PX(X,Y)=1goto 1100
 930 if PX(X+R,Y+R)=1goto 1100
 940 if PX(X+R,Y-R)=1goto 1100
 950 if PX(X-R,Y+R)=1goto 1100
 960 if PX(X-R,Y-R)=1goto 1100
 970 if X>@(1)if Y<-@(2)+L&(21)=0;goto 13
 980 if X<-@(1)if Y<@(2)-L&(21)=0;goto 1200
 990 if X<-@(1)if Y>@(2)&(21)=0
1000 goto 750
1100 &(21)=0;C=C+1
1110 CX=-75;CY=44;print C," CRASH!!"
1120 for A=1to 25;BC=80;NT=5
1140 MU="4";next A
1160 NT=0;goto 710
1200 NT=5;CY=44;print "OUTER LIMITS--OFF LIMITS";NT=0
1210 CY=44;print "                        "
1220 goto 710
1300 NT=3;clear 
1320 print "FAR OUT! YOU DID IT! ONLY",#3,C," CRASHES!"
1330 print "TIME=",#3,T
1340 S=((R+1)mul Hmul W)mul 72div ((Tmul L)div 10)mul 10
1350 print "SCORE=",#5,S
1360 if S>JJ=S
1370 print "TODAY'S HIGH SCORE=",#5,J
1400 print "AGAIN?"
1410 NT=0;input "1-YES  2-SAME AS LAST GAME"Z
1420 if Z=1goto 20
1430 if Z=2goto 207
>:return 